home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed22.d64 / menu (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  814b  |  30 lines
  1. 10 POKE53280,0:POKE53281,0:REM 90:02:15
  2. 15 PRINT"[147][156]   ** TPUG EDUCATION DISK    ED-22  **"
  3. 17 PRINT"      MATH ACTIVITIES - GRADES 3-4"
  4. 20 PRINT"      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  5. 25 PRINT""
  6. 30 DIMA$(15)
  7. 35 FORA=1TO15:READA$(A):PRINT"[154]"RIGHT$("   "+STR$(A),4);". [158]";A$(A):NEXTA
  8. 40 INPUT"CHOOSE(1-9):";A$
  9. 45 A=VAL(A$):IFA<1ORA>15ORA<>INT(A)THENPRINT"[145][145][145][145]":GOTO35
  10. 50 FORX=1230+40*ATO1229+40*A+LEN(A$(A)):POKEX,PEEK(X)+128:POKEX+54272,3:NEXT
  11. 55 FORT=1TO1500:NEXT:PRINT"[147]LOADING........ ";A$(A)
  12. 60 PRINT"[144]LOAD"CHR$(34)A$(A)CHR$(34)",8:"
  13. 75 POKE198,0:POKE631,19:POKE632,131:POKE198,2:END
  14. 59999 :
  15. 60001 DATA "TOUGH ADDITION"
  16. 60002 DATA "PLACE VALUES"
  17. 60003 DATA "POLICE SUBTRACT"
  18. 60004 DATA "SUBTRACTION 1"
  19. 60005 DATA "THE GREAT DIVIDE"
  20. 60006 DATA "LASER ADDITION"
  21. 60007 DATA "TAKE AWAY ISLAND"
  22. 60008 DATA "MUSICAL MATH"
  23. 60009 DATA "MUNCH MATH"
  24. 60010 DATA "MATH WHIZZER"
  25. 60011 DATA "R2D2 DIVISION"
  26. 60012 DATA "MUSIC MATH"
  27. 60013 DATA "**"
  28. 60014 DATA "**"
  29. 60015 DATA "**"
  30.